Dn2 <- read.csv2("G:/Maitrise/ACP3 Intimite-Securite.csv")
Dn2

# Représentation des points
plot(Dn2$Intimite,Dn2$Securite,col="red")

# Première composante
lines(c(3,8),c(8,2),col="green")